home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / START.Dxr / 00037.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  479 b   |  26 lines
  1. on mouseDown
  2.   global gDown
  3.   set gDown to 5
  4.   set the memberNum of sprite 5 to 24
  5.   puppetSound(3, "vol 1")
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global gDown, gTestList, gCursor, gSubj
  11.   if gDown = 5 then
  12.     set gDown to 0
  13.     set the memberNum of sprite 5 to 25
  14.     cursor(4)
  15.     updateStage()
  16.     repeat with i = 1 to 7
  17.       puppetSprite(i, 0)
  18.     end repeat
  19.     puppetSound(3, "vol 1")
  20.     repeat while soundBusy(3)
  21.     end repeat
  22.     set gSubj to "M"
  23.     go(22)
  24.   end if
  25. end
  26.